object AddCardForm: TAddCardForm
  Left = 471
  Top = 104
  Width = 469
  Height = 371
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #22686#21152#29992#25143#21345
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 33
    Top = 69
    Width = 56
    Height = 13
    Caption = #36710#29260#21495#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object rgUserType: TRadioGroup
    Left = 0
    Top = 81
    Width = 461
    Height = 34
    Align = alTop
    Caption = #21345#31867#22411#65306
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      #20813#20132
      #39044#20184
      #36335#27573#21253#20132)
    TabOrder = 0
  end
  object grp1: TGroupBox
    Left = 0
    Top = 0
    Width = 461
    Height = 81
    Align = alTop
    Caption = #36134#25143#20449#24687#65306
    TabOrder = 1
    object lbl1: TLabel
      Left = 37
      Top = 23
      Width = 70
      Height = 13
      Caption = #29992#25143#36134#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl2: TLabel
      Left = 37
      Top = 52
      Width = 70
      Height = 13
      Caption = #23458#25143#21517#31216#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object medtCUstNo: TMaskEdit
      Left = 122
      Top = 21
      Width = 193
      Height = 21
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 0
    end
    object edtCustName: TEdit
      Left = 121
      Top = 48
      Width = 194
      Height = 23
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307
      Font.Style = [fsBold]
      ImeName = 'Chinese (Simplified) - US Keyboard'
      ParentFont = False
      TabOrder = 1
    end
    object btnQuery: TButton
      Left = 321
      Top = 20
      Width = 75
      Height = 23
      Caption = #26597#35810'(&Q)'
      TabOrder = 2
      OnClick = btnQueryClick
    end
  end
  object grp2: TGroupBox
    Left = 0
    Top = 115
    Width = 461
    Height = 174
    Align = alTop
    Caption = #21345#20449#24687#65306
    TabOrder = 2
    object lbl3: TLabel
      Left = 288
      Top = 45
      Width = 84
      Height = 13
      Caption = #39044#20184#21345#36873#20840#31243
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl4: TLabel
      Left = 32
      Top = 45
      Width = 70
      Height = 13
      Caption = #20813#20132#36335#27573#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl5: TLabel
      Left = 33
      Top = 69
      Width = 56
      Height = 13
      Caption = #36710#29260#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl6: TLabel
      Left = 34
      Top = 89
      Width = 42
      Height = 13
      Caption = #36710#22411#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl7: TLabel
      Left = 34
      Top = 117
      Width = 70
      Height = 13
      Caption = #29983#25928#26102#38388#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl8: TLabel
      Left = 34
      Top = 141
      Width = 70
      Height = 13
      Caption = #25130#27490#26102#38388#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl9: TLabel
      Left = 33
      Top = 21
      Width = 42
      Height = 13
      Caption = #21345#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lcbRoad: TwwDBLookupCombo
      Left = 120
      Top = 41
      Width = 161
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'ROADFULLNAME'#9'50'#9'ROADFULLNAME'#9#9)
      DataField = 'FREEROAD'
      DataSource = srcSpeCard
      LookupTable = mstblFreeRoad
      LookupField = 'RoadID'
      DropDownWidth = 161
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object dbedtVehPlate: TDBEdit
      Left = 120
      Top = 64
      Width = 121
      Height = 21
      DataField = 'VehPlate'
      DataSource = srcSpeCard
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 1
    end
    object dbedtVehClass: TDBEdit
      Left = 120
      Top = 88
      Width = 121
      Height = 21
      DataField = 'VehClass'
      DataSource = srcSpeCard
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 2
    end
    object dtpBegin: TDateTimePicker
      Left = 120
      Top = 112
      Width = 121
      Height = 21
      Date = 40534.000000000000000000
      Time = 40534.000000000000000000
      DateMode = dmUpDown
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 3
    end
    object dtpEnd: TDateTimePicker
      Left = 120
      Top = 136
      Width = 121
      Height = 21
      Date = 40534.999988425920000000
      Time = 40534.999988425920000000
      DateMode = dmUpDown
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 4
    end
    object dbedtCARDNO: TDBEdit
      Left = 120
      Top = 17
      Width = 121
      Height = 21
      DataField = 'CARDNO'
      DataSource = srcSpeCard
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 5
    end
  end
  object btnOk: TButton
    Left = 48
    Top = 304
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 3
    OnClick = btnOkClick
  end
  object btnCLose: TButton
    Left = 344
    Top = 304
    Width = 75
    Height = 25
    Caption = #36864#20986'(&C)'
    TabOrder = 4
    OnClick = btnCLoseClick
  end
  object msqrySpeCard: TMSQuery
    Connection = MainForm.connSQL
    SQL.Strings = (
      'select top 1 * from TS_SpeCArd')
    Left = 168
    Top = 80
    object msqrySpeCardCARDID: TStringField
      FieldName = 'CARDID'
      Size = 16
    end
    object msqrySpeCardCARDNO: TIntegerField
      FieldName = 'CARDNO'
    end
    object msqrySpeCardCARDType: TSmallintField
      FieldName = 'CARDType'
    end
    object msqrySpeCardVehPlate: TStringField
      FieldName = 'VehPlate'
      Size = 12
    end
    object msqrySpeCardAccountNo: TIntegerField
      FieldName = 'AccountNo'
    end
    object msqrySpeCardFREETYPE: TSmallintField
      FieldName = 'FREETYPE'
    end
    object msqrySpeCardFREEROAD: TIntegerField
      FieldName = 'FREEROAD'
    end
    object msqrySpeCardFREESTA: TStringField
      FieldName = 'FREESTA'
      Size = 230
    end
    object msqrySpeCardVehClass: TSmallintField
      FieldName = 'VehClass'
    end
    object msqrySpeCardBEGDT: TDateTimeField
      FieldName = 'BEGDT'
    end
    object msqrySpeCardENDDT: TDateTimeField
      FieldName = 'ENDDT'
    end
    object msqrySpeCardMARK: TSmallintField
      FieldName = 'MARK'
    end
  end
  object mstblFreeRoad: TMSTable
    TableName = 'TS_FreeROAD'
    Connection = MainForm.connSQL
    Left = 328
    Top = 176
  end
  object srcSpeCard: TDataSource
    DataSet = msqrySpeCard
    Left = 128
    Top = 80
  end
  object msqryAccount: TMSQuery
    Connection = MainForm.connSQL
    Left = 208
    Top = 83
  end
end
